From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Dec 2002 21:39:18 +0000 (+0000)
Subject: (Fdefun, Fdefmacro): Record in load-history redefining an autoload.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29330
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=126b94ce487f7030a9697322bf4be550c6d15acf;p=emacs.git

(Fdefun, Fdefmacro): Record in load-history redefining an autoload.
---

diff --git a/src/eval.c b/src/eval.c
index d59a3cd9eb9..9cac4293243 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -637,6 +637,9 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...)  */)
   defn = Fcons (Qlambda, Fcdr (args));
   if (!NILP (Vpurify_flag))
     defn = Fpurecopy (defn);
+  if (CONSP (XSYMBOL (fn_name)->function)
+      && EQ (XCAR (XSYMBOL (fn_name)->function), Qautoload))
+    LOADHIST_ATTACH (Fcons (Qt, fn_name));
   Ffset (fn_name, defn);
   LOADHIST_ATTACH (fn_name);
   return fn_name;
@@ -702,6 +705,9 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...)  */)
   
   if (!NILP (Vpurify_flag))
     defn = Fpurecopy (defn);
+  if (CONSP (XSYMBOL (fn_name)->function)
+      && EQ (XCAR (XSYMBOL (fn_name)->function), Qautoload))
+    LOADHIST_ATTACH (Fcons (Qt, fn_name));
   Ffset (fn_name, defn);
   LOADHIST_ATTACH (fn_name);
   return fn_name;